home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / online / motor.EXE / MM.BAT < prev    next >
DOS Batch File  |  1991-10-05  |  1KB  |  60 lines
  1. @ECHO OFF
  2. :AGAIN
  3. BE TAB.RAT
  4. BE ASK " " QCXYA12 DEF=Q BRIGHT YELLOW
  5.  
  6. IF ERRORLEVEL 7 GOTO 2
  7. IF ERRORLEVEL 6 GOTO 1
  8. IF ERRORLEVEL 5 GOTO AUT
  9. IF ERRORLEVEL 4 GOTO Y
  10. IF ERRORLEVEL 3 GOTO X
  11. IF ERRORLEVEL 2 GOTO CAL
  12. IF ERRORLEVEL 1 GOTO QUIT
  13. :1
  14. BE TAB2.RAT
  15. BE ROWCOL 10,17 "tablo hazirlaniyor..."
  16. TABX
  17. goto again
  18. :2
  19. BE TAB2.RAT
  20. BE ROWCOL 10,17 "tablo hazirlaniyor..."
  21. TABY
  22. goto again
  23. :AUT
  24. acad
  25. goto again
  26. :Y
  27. BE TAB2.RAT
  28. BE ROWCOL 10,17 "baslangic 'joint' numaralarini girin..."
  29. be window 14,18,16,65 green on yellow explode shadow
  30. be rowcol 15,19
  31. Y
  32. GOTO AGAIN
  33. :x
  34. BE TAB2.RAT
  35. BE ROWCOL 10,17 "baslangic 'joint' numaralarini girin..."
  36. be window 14,18,16,65 green on yellow explode shadow
  37. be rowcol 15,19
  38. X
  39. GOTO AGAIN
  40. :CAL
  41. BE TAB2.RAT
  42. be rowcol 8,17 "dosya ismini girin..."
  43. be window 14,18,16,65 green on yellow explode shadow
  44. be rowcol 15,19
  45. dosya
  46. be tab2.rat
  47. be rowcol 10,17 "kordinatlar duzenleniyor..."
  48. SIRA
  49. be rowcol 11,17 "kordinatlar numaralandiriliyor..."
  50. ARDAS
  51. be rowcol 12,17 "momentler okunuyor..."
  52. mom1
  53. be rowcol 13,17 "momentler duzenleniyor..."
  54. mom2
  55. goto again
  56. :QUIT
  57. rem eXIST *.DAT del *.dat
  58. CLS
  59. exit
  60.